home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / grabtext.zip / BLOADER.BAS < prev    next >
BASIC Source File  |  1990-05-20  |  185b  |  10 lines
  1. 1  DEF SEG=&HB800
  2. 2  KEY OFF
  3. 3  CLS
  4. 4  FILES "*.BSV"
  5. 5  INPUT"Enter Name of Image To Load. <Blank Ends> : ",A$
  6. 10 IF A$="" THEN SYSTEM
  7. 30 BLOAD A$,0
  8. 40 A$=INPUT$(1)
  9. 50 GOTO 3
  10.